home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu183.dms / pu183.adf / overview < prev    next >
Text File  |  1990-12-04  |  18KB  |  436 lines
  1. 100 REM OVERVIEW Program
  2. 105 REM Screen Overview of Genealogy ON DISPLAY
  3. 110 REM Copyright 1986 - 1987 by:  Melvin O. Duke
  4. ' Ported to the Amiga in March 1988 by Nathan Barber
  5. ' Adaptions for Amiga graphics (c) 1988 by Nathan Barber
  6.  
  7. '115 SCREEN 0,1,0,0
  8. '120 SCREEN 1 : COLOR 1 : CLS
  9. CLEAR ,60000&,30000
  10. WINDOW CLOSE 2
  11. SCREEN CLOSE 1
  12. SCREEN 1,330,214,3,1
  13. WINDOW 2,"",(0,0)-(319,199),0,1
  14. WINDOW OUTPUT 2
  15. PALETTE 0,  0,  0,0
  16. PALETTE 1, .4, .6,1
  17. PALETTE 2,.33,.87,0
  18. PALETTE 3,.47,.87,1
  19. PALETTE 4,1,.6,.67
  20. PALETTE 5,.8,0,.93
  21. PALETTE 6,.8,.6,.53
  22. PALETTE 7,1,1,1
  23.  
  24. CLS
  25. 130 LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  26. 140 LOCATE  6,14 : PRINT "Version 5.0";
  27. 150 LOCATE 10, 8 : PRINT "A User-Supported Program";
  28. 160 LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  29. 170 LOCATE 16,12 : PRINT "P.O. Box 20836";
  30. 180 LOCATE 18,10 : PRINT "San Jose, CA  95160";
  31. 190 LOCATE 20,12 : PRINT "(408) 268-6637";
  32. 200 LOCATE 23, 1 : PRINT "Press the escape key (Esc) to end, or";
  33. 210 LOCATE 24, 1 : PRINT "Press any key to continue at each pause";
  34. 220 GOSUB 4000 :REM'pause
  35. 230 CLS
  36. 240 LOCATE  1,10 : PRINT "CAPABILITIES";
  37. 250 LOCATE  4, 2 : PRINT "CHARTS:";
  38. 260 LOCATE  4,15 : PRINT "Pedigree (Family Tree)";
  39. 270 LOCATE  6,15 : PRINT "Family Group";
  40. 280 LOCATE  8,15 : PRINT "Descendents";
  41. 290 GOSUB 4000 :REM'pause
  42. 300 LOCATE 11, 2 : PRINT "LISTS:";
  43. 310 LOCATE 11,15 : PRINT "Persons (numeric)";
  44. 320 LOCATE 13,15 : PRINT "Persons (alphabetic)";
  45. 330 LOCATE 15,15 : PRINT "Marriages (numeric)";
  46. 340 LOCATE 17,15 : PRINT "Marriages (alphabetic)";
  47. 350 LOCATE 19,15 : PRINT "Parent/Child Index";
  48. 360 GOSUB 4000 :REM'pause
  49. 370 LOCATE 22, 2 : PRINT "DETAILS:";
  50. 380 LOCATE 22,15 : PRINT "About Persons";
  51. 390 LOCATE 24,15 : PRINT "About Marriages";
  52. 400 GOSUB 4000 :REM'pause
  53. 410 CLS
  54. 420 LOCATE  1,10 : PRINT "CAPABILITIES, Cont.";
  55. 430 LOCATE  4, 2 : PRINT "SCREEN:";
  56. 440 LOCATE  4,15 : PRINT "Pedigrees (Family Trees)";
  57. 450 LOCATE  6,15 : PRINT "Family Groups";
  58. 460 LOCATE  8,15 : PRINT "Descendants";
  59. 470 LOCATE 10,15 : PRINT "Personal Detail";
  60. 480 LOCATE 12,15 : PRINT "LDS Ordinances";
  61. 490 LOCATE 17,15 : PRINT "(This is where";
  62. 500 LOCATE 19,15 : PRINT "Genealogy ON DISPLAY";
  63. 510 LOCATE 21,15 : PRINT "got its name)";
  64. 520 GOSUB 4000 :REM'pause
  65. 530 CLS
  66. 540 LOCATE  2,10 : PRINT "DATA STORAGE PRINCIPLE";
  67. 550 LOCATE  6, 2 : PRINT "Information Must be Recorded one time";
  68. 560 LOCATE  8, 2 : PRINT "only.";
  69. 570 GOSUB 4000 :REM'pause
  70. 580 LOCATE 13,10 : PRINT "DATA BASE PRINCIPLE";
  71. 590 LOCATE 17, 2 : PRINT "Data Storage Must be Separated from";
  72. 600 LOCATE 19, 2 : PRINT "Data Presentation.";
  73. 610 GOSUB 4000 :REM'pause
  74. 620 CLS
  75. 630 LOCATE  2,10 : PRINT "FILES";
  76. 640 LOCATE  7, 2 : PRINT "DATA FILES:";
  77. 650 LOCATE  7,15 : PRINT "Persons File";
  78. 660 LOCATE  9,15 : PRINT "Marriages File";
  79. 670 LOCATE 11,15 : PRINT "Ordinances File (LDS)";
  80. 680 GOSUB 4000 :REM'pause
  81. 690 LOCATE 17, 2 : PRINT "INDEXES:";
  82. 700 LOCATE 17,15 : PRINT "Parent/Child Index";
  83. 710 LOCATE 19,15 : PRINT "Marriage Index";
  84. 720 GOSUB 4000 :REM'pause
  85. 730 CLS
  86. 740 LOCATE  2,10 : PRINT "RECORDS";
  87. 750 LOCATE  6, 2 : PRINT "Person Record";
  88. 760 R1 = 7 : C1 =  1 : R2 = 9 : C2 = 40 : GOSUB 4100 :REM'box
  89. 770 R1 = 7 : C1 =  7 : R2 = 9 : C2 =  7 : GOSUB 4150 :REM'line
  90. 780 R1 = 7 : C1 = 30 : R2 = 9 : C2 = 30 : GOSUB 4100 :REM'line
  91. 790 R1 = 7 : C1 = 35 : R2 = 9 : C2 = 35 : GOSUB 4100 :REM'line
  92. 800 LOCATE  8, 3 : PRINT "P.No";
  93. 810 LOCATE  8,10 : PRINT "Vital Statistics";
  94. 820 LOCATE  8,31 : PRINT "F.No";
  95. 830 LOCATE  8,36 : PRINT "M.No";
  96. 840 GOSUB 4000 :REM'pause
  97. 850 LOCATE 13, 2 : PRINT "Marriage Record"
  98. 860 R1 = 14 : C1 =  1 : R2 = 16 : C2 = 40 : GOSUB 4100 :REM'box
  99. 870 R1 = 14 : C1 =  7 : R2 = 16 : C2 =  7 : GOSUB 4150 :REM'line
  100. 880 R1 = 14 : C1 = 30 : R2 = 16 : C2 = 30 : GOSUB 4150 :REM'line
  101. 890 R1 = 14 : C1 = 35 : R2 = 16 : C2 = 35 : GOSUB 4150 :REM'line
  102. 900 LOCATE 15, 3 : PRINT "M.No";
  103. 910 LOCATE 15,10 : PRINT "Vital Statistics";
  104. 920 LOCATE 15,31 : PRINT "H.No";
  105. 930 LOCATE 15,36 : PRINT "W.No";
  106. 940 GOSUB 4000 :REM'pause
  107. 950 LOCATE 20, 2 : PRINT "Ordinance Record"
  108. 960 R1 = 21 : C1 = 1 : R2 = 23 : C2 = 40 : GOSUB 4100 :REM'box
  109. 970 R1 = 21 : C1 = 7 : R2 = 23 : C2 =  7 : GOSUB 4150 :REM'box
  110. 980 LOCATE 22, 3 : PRINT "P.No";
  111. 990 LOCATE 22,10 : PRINT "LDS Ordinances";
  112. 1000 GOSUB 4000 :REM'pause
  113. 1010 CLS
  114. 1020 LOCATE  2,10 : PRINT "BUILDING A PEDIGREE CHART";
  115. 1030 REM Person
  116. 1040 LOCATE 14, 2 : PRINT "P       F M";
  117. 1050 R1 = 13 : C1 =  1 : R2 = 15 : C2 = 13 : GOSUB 4100 :REM'box
  118. 1060 R1 = 13 : C1 =  9 : R2 = 15 : C2 =  9 : GOSUB 4150 :REM'line
  119. 1070 R1 = 13 : C1 = 11 : R2 = 15 : C2 = 11 : GOSUB 4150 :REM'line
  120. 1080 GOSUB 4000 :REM'pause
  121. 1090 REM Father
  122. 1100 LOCATE  8,10 : PRINT "P       F M";
  123. 1110 R1 =  7 : C1 =  9 : R2 = 9 : C2 = 21 : GOSUB 4100 :REM'box
  124. 1120 R1 =  7 : C1 = 17 : R2 = 9 : C2 = 17 : GOSUB 4150 :REM'line
  125. 1130 R1 =  7 : C1 = 19 : R2 = 9 : C2 = 19 : GOSUB 4150 :REM'line
  126. 1140 R1 = 13 : C1 = 10 : R2 = 9 : C2 = 10 : GOSUB 4150 :REM'line
  127. 1150 GOSUB 4000 :REM'pause
  128. 1160 REM Mother
  129. 1170 LOCATE 20,12 : PRINT "P       F M";
  130. 1180 R1 = 19 : C1 = 11 : R2 = 21 : C2 = 23 : GOSUB 4100 :REM'box
  131. 1190 R1 = 19 : C1 = 19 : R2 = 21 : C2 = 19 : GOSUB 4150 :REM'line
  132. 1200 R1 = 19 : C1 = 21 : R2 = 21 : C2 = 21 : GOSUB 4150 :REM'line
  133. 1210 R1 = 15 : C1 = 12 : R2 = 19 : C2 = 12 : GOSUB 4150 :REM'line
  134. 1220 GOSUB 4000 :REM'pause
  135. 1230 REM Paternal Grandfather
  136. 1240 LOCATE  5,18 : PRINT "P       F M";
  137. 1250 R1 =  4 : C1 = 17 : R2 =  6 : C2 = 29 : GOSUB 4100 :REM'box
  138. 1260 R1 =  4 : C1 = 25 : R2 =  6 : C2 = 25 : GOSUB 4150 :REM'line
  139. 1270 R1 =  4 : C1 = 27 : R2 =  6 : C2 = 27 : GOSUB 4150 :REM'line
  140. 1280 R1 =  6 : C1 = 18 : R2 =  7 : C2 = 18 : GOSUB 4150 :REM'line
  141. 1290 GOSUB 4000 :REM'pause
  142. 1300 REM Paternal Grandmother
  143. 1310 LOCATE 11,20 : PRINT "P       F M";
  144. 1320 R1 = 10 : C1 = 19 : R2 = 12 : C2 = 31 : GOSUB 4100 :REM'box
  145. 1330 R1 = 10 : C1 = 27 : R2 = 12 : C2 = 27 : GOSUB 4150 :REM'line
  146. 1340 R1 = 10 : C1 = 29 : R2 = 12 : C2 = 29 : GOSUB 4150 :REM'line
  147. 1350 R1 =  9 : C1 = 20 : R2 = 10 : C2 = 20 : GOSUB 4150 :REM'line
  148. 1360 GOSUB 4000 :REM'pause
  149. 1370 REM Maternal Grandfather
  150. 1380 LOCATE 17,20 : PRINT "P       F M";
  151. 1390 R1 = 16 : C1 = 19 : R2 = 18 : C2 = 31 : GOSUB 4100 :REM'box
  152. 1400 R1 = 16 : C1 = 27 : R2 = 18 : C2 = 27 : GOSUB 4150 :REM'line
  153. 1410 R1 = 16 : C1 = 29 : R2 = 18 : C2 = 29 : GOSUB 4150 :REM'line
  154. 1420 R1 = 18 : C1 = 20 : R2 = 19 : C2 = 20 : GOSUB 4150 :REM'line
  155. 1430 GOSUB 4000 :REM'pause
  156. 1440 REM Maternal Grandmother
  157. 1450 LOCATE 23,22 : PRINT "P       F M";
  158. 1460 R1 = 22 : C1 = 21 : R2 = 24 : C2 = 33 : GOSUB 4100 :REM'box
  159. 1470 R1 = 22 : C1 = 29 : R2 = 24 : C2 = 29 : GOSUB 4150 :REM'line
  160. 1480 R1 = 22 : C1 = 31 : R2 = 24 : C2 = 31 : GOSUB 4150 :REM'line
  161. 1490 R1 = 22 : C1 = 22 : R2 = 21 : C2 = 22 : GOSUB 4150 :REM'line
  162. 1500 GOSUB 4000 :REM'pause
  163. 1510 CLS
  164. 1520 LOCATE  2,10 : PRINT "INDEXES";
  165. 1530 LOCATE  6, 2 : PRINT "Parent/Child Index";
  166. 1540 R1 =  7 : C1 =  8 : R2 = 13 : C2 = 28 : GOSUB 4100 :REM'box
  167. 1550 R1 =  7 : C1 = 15 : R2 = 13 : C2 = 15 : GOSUB 4150 :REM'line
  168. 1560 R1 =  7 : C1 = 21 : R2 = 13 : C2 = 21 : GOSUB 4150 :REM'line
  169. 1570 R1 =  9 : C1 =  8 : R2 =  9 : C2 = 28 : GOSUB 4150 :REM'line
  170. 1580 R1 = 11 : C1 =  8 : R2 = 11 : C2 = 28 : GOSUB 4150 :REM'line
  171. 1590 LOCATE  8, 9 : PRINT "Parent";
  172. 1600 LOCATE  8,16 : PRINT "Child";
  173. 1610 LOCATE  8,22 : PRINT "B-Date";
  174. 1620 LOCATE 10, 9 : PRINT "Parent";
  175. 1630 LOCATE 10,16 : PRINT "Child";
  176. 1640 LOCATE 10,22 : PRINT "B-Date";
  177. 1650 LOCATE 12, 9 : PRINT "Parent";
  178. 1660 LOCATE 12,16 : PRINT "Child";
  179. 1670 LOCATE 12,22 : PRINT "B-Date";
  180. 1680 GOSUB 4000 :REM'pause
  181. 1690 LOCATE 16, 2 : PRINT "Marriages Index";
  182. 1700 R1 = 17 : C1 =  8 : R2 = 23 : C2 = 28 : GOSUB 4100 :REM'box
  183. 1710 R1 = 19 : C1 =  8 : R2 = 19 : C2 = 28 : GOSUB 4150 :REM'line
  184. 1720 R1 = 21 : C1 =  8 : R2 = 21 : C2 = 28 : GOSUB 4150 :REM'line
  185. 1730 R1 = 17 : C1 = 15 : R2 = 23 : C2 = 15 : GOSUB 4150 :REM'line
  186. 1740 R1 = 17 : C1 = 21 : R2 = 23 : C2 = 21 : GOSUB 4150 :REM'line
  187. 1750 LOCATE 18, 9 : PRINT "Person";
  188. 1760 LOCATE 18,16 : PRINT "Marr.";
  189. 1770 LOCATE 18,22 : PRINT "M-Date";
  190. 1780 LOCATE 20, 9 : PRINT "Person";
  191. 1790 LOCATE 20,16 : PRINT "Marr.";
  192. 1800 LOCATE 20,22 : PRINT "M-Date";
  193. 1810 LOCATE 22, 9 : PRINT "Person";
  194. 1820 LOCATE 22,16 : PRINT "Marr.";
  195. 1830 LOCATE 22,22 : PRINT "M-Date";
  196. 1840 GOSUB 4000 :REM'pause
  197. 1850 CLS
  198. 1860 LOCATE  4,14 : PRINT "DATA BASE";
  199. 1870 LOCATE 10, 8 : PRINT "A Relationship-Indexed";
  200. 1880 LOCATE 12, 8 : PRINT "Data-base Organization";
  201. 1890 LOCATE 20, 9 : PRINT "Ties it all together";
  202. 1900 GOSUB 4000 :REM'pause
  203. 1910 CLS
  204. 1920 LOCATE  2,10 : PRINT "BUILDING FAMILIES";
  205. 1930 R1 = 10 : C1 = 2 : R2 = 12 : C2 = 11 : GOSUB 4100 :REM'box
  206. 1940 LOCATE 11, 3 : PRINT "Marriage";
  207. 1950 GOSUB 4000 :REM'pause
  208. 1960 R1 =  5 : C1 =  2 : R2 =  7 : C2 = 11 : GOSUB 4100 :REM'box
  209. 1970 LOCATE  6, 3 : PRINT "Person";
  210. 1980 R1 =  7 : C1 = 20 : R2 = 10 : C2 = 29 : GOSUB 4100 :REM'box
  211. 1990 LOCATE  8,21 : PRINT "Marriage";
  212. 2000 LOCATE  9,21 : PRINT "Index";
  213. 2010 R1 =  7 : C1 = 11 : R2 =  7 : C2 = 20 : GOSUB 4150 :REM'line
  214. 2020 R1 = 10 : C1 = 20 : R2 = 10 : C2 = 11 : GOSUB 4150 :REM'line
  215. 2030 GOSUB 4000 :REM'pause
  216. 2040 R1 = 12 : C1 = 20 : R2 = 16 : C2 = 29 : GOSUB 4100 :REM'box
  217. 2050 LOCATE 13,21 : PRINT "Parent/";
  218. 2060 LOCATE 14,21 : PRINT " Child";
  219. 2070 LOCATE 15,21 : PRINT "Index";
  220. 2080 R1 = 16 : C1 =  2 : R2 = 18 : C2 = 11 : GOSUB 4100 :REM'box
  221. 2090 LOCATE 17, 3 : PRINT "Child";
  222. 2100 R1 = 12 : C1 = 11 : R2 = 12 : C2 = 20 : GOSUB 4150 :REM'line
  223. 2110 R1 = 16 : C1 = 20 : R2 = 16 : C2 = 11 : GOSUB 4150 :REM'line
  224. 2120 GOSUB 4000 :REM'pause
  225. 2130 R1 = 18 : C1 =  2 : R2 = 20 : C2 = 11 : GOSUB 4100 :REM'box
  226. 2140 LOCATE 19, 3 : PRINT "Child";
  227. 2150 GOSUB 4000 :REM'pause
  228. 2160 R1 = 20 : C1 =  2 : R2 = 22 : C2 = 11 : GOSUB 4100 :REM'box
  229. 2170 LOCATE 21, 3 : PRINT "Child";
  230. 2180 GOSUB 4000 :REM'pause
  231. 2190 R1 = 22 : C1 =  2 : R2 = 24 : C2 = 11 : GOSUB 4100 :REM'box
  232. 2200 LOCATE 23, 3 : PRINT "Child";
  233. 2210 GOSUB 4000 :REM'pause
  234. 2220 CLS
  235. 2230 LOCATE  2,10 : PRINT "GETTING STARTED";
  236. 2240 LOCATE  8, 2 : PRINT "List of Persons";
  237. 2250 LOCATE 12, 2 : PRINT "List of Marriages";
  238. 2260 LOCATE 16, 2 : PRINT "Formatted Diskette (for data)";
  239. 2270 GOSUB 4000 :REM'pause
  240. 2280 CLS
  241. 2290 LOCATE  2,10 : PRINT "LIST OF PERSONS";
  242. 2300 LOCATE  5, 2 : PRINT "Number  Name            F.No  M.No"
  243. 2310 LOCATE  7, 2 : PRINT "  1";
  244. 2320 LOCATE  9, 2 : PRINT "  2";
  245. 2330 LOCATE 11, 2 : PRINT "  3";
  246. 2340 LOCATE 13, 2 : PRINT "  4";
  247. 2350 LOCATE 15, 2 : PRINT "  5";
  248. 2360 LOCATE 17, 2 : PRINT "  6";
  249. 2370 LOCATE 19, 2 : PRINT "  7";
  250. 2380 LOCATE 21, 2 : PRINT "  8";
  251. 2390 GOSUB 4000 :REM'pause
  252. 2400 LOCATE  7,10 : PRINT "You";
  253. 2410 GOSUB 4000 :REM'pause
  254. 2420 LOCATE  9,10 : PRINT "Your Father";
  255. 2430 GOSUB 4000 :REM'pause
  256. 2440 LOCATE 11,10 : PRINT "Your Mother";
  257. 2450 GOSUB 4000 :REM'pause
  258. 2460 LOCATE  7,26 : PRINT "  2";
  259. 2470 LOCATE  7,32 : PRINT "  3";
  260. 2480 GOSUB 4000 :REM'pause
  261. 2490 LOCATE 13,10 : PRINT "Your Spouse";
  262. 2500 GOSUB 4000 :REM'pause
  263. 2510 CLS
  264. 2520 LOCATE  2,10 : PRINT "LIST OF MARRIAGES";
  265. 2530 LOCATE  5, 2 : PRINT "M.No.  H.No  Husband    W.No  Wife";
  266. 2540 LOCATE  7, 2 : PRINT "  1";
  267. 2550 LOCATE  9, 2 : PRINT "  2";
  268. 2560 LOCATE 11, 2 : PRINT "  3";
  269. 2570 LOCATE 13, 2 : PRINT "  4";
  270. 2580 LOCATE 15, 2 : PRINT "  5";
  271. 2590 LOCATE 17, 2 : PRINT "  6";
  272. 2600 LOCATE 19, 2 : PRINT "  7";
  273. 2610 LOCATE 21, 2 : PRINT "  8";
  274. 2620 GOSUB 4000 :REM'pause
  275. 2630 LOCATE  7, 9 : PRINT "  2   Dad";
  276. 2640 LOCATE  7,26 : PRINT "  3   Mom";
  277. 2650 GOSUB 4000 :REM'pause
  278. 2660 LOCATE  9, 9 : PRINT "  1   Mel";
  279. 2670 LOCATE  9,26 : PRINT "  4   Helen";
  280. 2680 GOSUB 4000 :REM'pause
  281. 2690 CLS
  282. 2700 LOCATE 10,10 : PRINT "LET'S GET STARTED";
  283. 2710 GOSUB 4000 :REM'pause
  284. 2720 CLS
  285. 2730 LOCATE  3, 6 : PRINT "PREPARE YOUR DATA DISKETTE";
  286. 2740 LOCATE  7, 2 : PRINT "FORMAT a Diskette for your data";
  287. 2750 LOCATE  9, 6 : PRINT "(Without the System on it)";
  288. 2760 LOCATE 11, 6 : PRINT "(Give it a Label if you want to)";
  289. 2770 GOSUB 4000 :REM'pause
  290. 2780 LOCATE 15, 2 : PRINT "Copy the Verifile to it";
  291. 2790 GOSUB 4000 :REM'pause
  292. 2800 LOCATE 19, 2 : PRINT "Copy the Menu to it";
  293. 2810 GOSUB 4000 :REM'pause
  294. 2820 CLS
  295. 2830 LOCATE  3, 6 : PRINT "BRING UP BASIC";
  296. 2840 LOCATE  7, 2 : PRINT "Type:   basic/s:256";
  297. 2850 LOCATE  9, 4 : PRINT "and press the 'enter' key.";
  298. 2860 LOCATE 13, 4 : PRINT "(Need a 256 byte file buffer"
  299. 2870 LOCATE 15, 4 : PRINT " for the Genealogy Records)"
  300. 2880 GOSUB 4000 :REM'pause
  301. 2890 CLS
  302. 2900 LOCATE  3, 6 : PRINT "BRING UP THE GENEALOGY MENU";
  303. 2910 LOCATE  7, 4 : PRINT "(With either the Program Diskette,";
  304. 2920 LOCATE  9, 4 : PRINT " or the Data Diskette in Place)";
  305. 2930 LOCATE 13, 2 : PRINT "Type:   run ";CHR$(34);"menu";CHR$(34);
  306. 2940 LOCATE 15, 4 : PRINT "and press the 'enter' key.";
  307. 2950 GOSUB 4000 :REM'pause
  308. 2960 CLS
  309. 2970 LOCATE  2,10 : PRINT "CREATE THE DATA FILES";
  310. 2980 LOCATE  7, 2 : PRINT "Create (format) the Persons File";
  311. 2990 LOCATE  9, 4 : PRINT "Select the CREATPER Program";
  312. 3000 GOSUB 4000 :REM'pause
  313. 3010 LOCATE 13, 2 : PRINT "Create (format) the Marriages File";
  314. 3020 LOCATE 15, 4 : PRINT "Select the CREATMAR Program";
  315. 3030 GOSUB 4000 :REM'pause
  316. 3040 LOCATE 19, 2 : PRINT "Create (format) the Ordinances File";
  317. 3050 LOCATE 21, 4 : PRINT "Select the CREATORD Program";
  318. 3060 GOSUB 4000 :REM'pause
  319. 3070 CLS
  320. 3080 LOCATE  2,10 : PRINT "ENTER YOUR DATA";
  321. 3090 LOCATE  6, 2 : PRINT "Enter Personal Information";
  322. 3100 LOCATE  8, 4 : PRINT "Select the UPDATPER Program";
  323. 3110 GOSUB 4000 :REM'pause
  324. 3120 LOCATE 12, 2 : PRINT "Enter Marriage Information";
  325. 3130 LOCATE 14, 4 : PRINT "Select the UPDATMAR Program";
  326. 3140 GOSUB 4000 :REM'pause
  327. 3150 LOCATE 18, 2 : PRINT "Enter Ordinances Information";
  328. 3160 LOCATE 20, 4 : PRINT "Select the UPDATORD Program";
  329. 3170 GOSUB 4000 :REM'pause
  330. 3180 CLS
  331. 3190 LOCATE  2,10 : PRINT "FORM THE INDEXES";
  332. 3200 LOCATE  6, 2 : PRINT "Form the Parent/Child Index";
  333. 3210 LOCATE  8, 4 : PRINT "Select the INDEXPC Program";
  334. 3220 LOCATE 10, 6 : PRINT "(Run when Person Records Change)";
  335. 3230 GOSUB 4000 :REM'pause
  336. 3240 LOCATE 16, 2 : PRINT "Form the Marriages Index";
  337. 3250 LOCATE 18, 4 : PRINT "Select the INDEXMAR Program";
  338. 3260 LOCATE 20, 6 : PRINT "(Run when Marriage Records Change)";
  339. 3270 GOSUB 4000 :REM'pause
  340. 3280 CLS
  341. 3290 LOCATE 11,10 : PRINT "NOW THE FUN BEGINS";
  342. 3300 GOSUB 4000 :REM'pause
  343. 3310 CLS
  344. 3320 LOCATE  2,10 : PRINT "VIEW YOUR GENEALOGY";
  345. 3330 LOCATE  5, 2 : PRINT "Select the DISPLAY Program";
  346. 3340 LOCATE  7, 4 : PRINT "View Personal Information";
  347. 3350 LOCATE  9, 4 : PRINT "View Pedigree Charts";
  348. 3360 LOCATE 11, 4 : PRINT "View Family Groups";
  349. 3370 LOCATE 13, 4 : PRINT "View Ordinances";
  350. 3380 GOSUB 4000 :REM'pause
  351. 3390 LOCATE 18, 2 : PRINT "Select the DESCEND Program";
  352. 3400 LOCATE 20, 4 : PRINT "View Descendants";
  353. 3410 GOSUB 4000 :REM'pause
  354. 3420 CLS
  355. 3430 LOCATE  2,10 : PRINT "PAPER FOR THE CHARTS";
  356. 3440 LOCATE  5, 2 : PRINT "Wide (14 inch) Paper, or";
  357. 3450 LOCATE  7, 2 : PRINT "Narrow (8-1/2 inch) Paper"
  358. 3460 LOCATE 11, 2 : PRINT "Single Sheets, or";
  359. 3470 LOCATE 13, 2 : PRINT "Continuous Forms";
  360. 3480 LOCATE 17, 2 : PRINT "Blank Paper, or";
  361. 3490 LOCATE 19, 2 : PRINT "Pre-printed Forms";
  362. 3500 LOCATE 21, 4 : PRINT "Family Group, GA-032";
  363. 3510 LOCATE 23, 4 : PRINT "Pedigree Chart, GA-054";
  364. 3520 GOSUB 4000 :REM'pause
  365. 3530 CLS
  366. 3540 LOCATE  2,10 : PRINT "PRINT THE CHARTS";
  367. 3550 LOCATE  5, 2 : PRINT "Print Pedigree Charts";
  368. 3560 LOCATE  7, 4 : PRINT "Select the PEDIGREE Program";
  369. 3570 GOSUB 4000 :REM'pause
  370. 3580 LOCATE 11, 2 : PRINT "Print Family Group Sheets";
  371. 3590 LOCATE 13, 4 : PRINT "Select the FAMILY Program";
  372. 3600 GOSUB 4000 :REM'pause
  373. 3610 LOCATE 17, 2 : PRINT "Print Descendents Charts";
  374. 3620 LOCATE 19, 4 : PRINT "Select the DESCEND Program";
  375. 3630 GOSUB 4000 :REM'pause
  376. 3640 CLS
  377. 3650 LOCATE  2,10 : PRINT "PRINT THE LISTS";
  378. 3660 LOCATE  5, 2 : PRINT "Print Lists of Persons by Number";
  379. 3670 LOCATE  7, 4 : PRINT "Select the LISTPER Program";
  380. 3680 GOSUB 4000 :REM'pause
  381. 3690 LOCATE  9, 2 : PRINT "Print Alphabetized Lists of Persons";
  382. 3700 LOCATE 11, 4 : PRINT "Select the ALPHAPER Program";
  383. 3710 GOSUB 4000 :REM'pause
  384. 3720 LOCATE 13, 2 : PRINT "Print Lists of Marriages by Number";
  385. 3730 LOCATE 15, 4 : PRINT "Select the LISTMAR Program";
  386. 3740 GOSUB 4000 :REM'pause
  387. 3750 LOCATE 17, 2 : PRINT "Print Alphabetized Lists of Marriages";
  388. 3760 LOCATE 19, 4 : PRINT "Select the ALPHAMAR Program";
  389. 3770 GOSUB 4000 :REM'pause
  390. 3780 LOCATE 21, 2 : PRINT "Print the Parent/Child Index";
  391. 3790 LOCATE 23, 4 : PRINT "Select the LISTPCI Program";
  392. 3800 GOSUB 4000 :REM'pause
  393. 3810 CLS
  394. 3820 LOCATE  2, 5 : PRINT "PRINT DETAILED INFORMATION";
  395. 3830 LOCATE  6, 2 : PRINT "Print Detailed Personal Data";
  396. 3840 LOCATE  9, 4 : PRINT "Select the PRINTPER Program";
  397. 3850 GOSUB 4000 :REM'pause
  398. 3860 LOCATE 14, 2 : PRINT "Print Detailed Marriage Data";
  399. 3870 LOCATE 17, 4 : PRINT "Select the PRINTMAR Program";
  400. 3880 GOSUB 4000 :REM'pause
  401. 3890 CLS
  402. 3900 LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  403. 3910 LOCATE  6,14 : PRINT "Version 5.0";
  404. 3920 LOCATE 10, 8 : PRINT "A User-Supported Program";
  405. 3930 LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  406. 3940 LOCATE 16,12 : PRINT "P.O. Box 20836";
  407. 3950 LOCATE 18,10 : PRINT "San Jose, CA  95160";
  408. 3960 LOCATE 20,12 : PRINT "(408) 268-6637";
  409. 3970 LOCATE 23, 1
  410. 3980 GOSUB 4000 :REM'pause
  411. 3990 GOTO 4030
  412. 4000 REM Generalized Pause Routine
  413. 4010 A$ = INKEY$
  414. 4020 IF A$ = CHR$(27) THEN 4030 :ELSE 4070
  415. 4030 CLS
  416. 4040 'SCREEN 0,0,0,0
  417. 4050 WIDTH "scrn:",80
  418. 4060 GOTO 4200
  419. 4070 IF A$ = "" THEN 4010
  420. 4080 RETURN
  421. 4090 :REM'
  422. 4100 REM Generalized Box Routine
  423. 4110 REM Entry is R1, C1, R2, C2
  424. 4120 LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4),,B
  425. 4130 RETURN
  426. 4140 :REM'
  427. 4150 REM Generalized Line Routine
  428. 4160 REM Entry is R1, C1, R2, C2
  429. 4170 LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4)
  430. 4180 RETURN
  431. 4190 :REM'
  432. 4200 WINDOW OUTPUT 1
  433. WINDOW CLOSE 2
  434. SCREEN CLOSE 1
  435. END
  436.